home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / typset.arc / SHIFT (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  548b  |  29 lines
  1. 10 DIM A%(1000,2),D$(50)
  2. 20 N=0
  3. 30 GETN$:IFN$=""THEN30
  4. 40 IFN$=CHR$(13)THEN60
  5. 50 N=N+1:D$(N)=N$
  6. 55 PRINTN$:GOTO30
  7. 60 FORW=1TON:F$=D$(W)
  8. 61 PRINTCHR$(14)"[204][207][193][196] FILENAME:"F$
  9. 64 OPEN2,8,2,F$+".TMP,P,R":P1=0
  10. 65 FORT=1TO2
  11. 66 GET#2,A$(T)
  12. 67 NEXTT
  13. 68 P1=P1+1:FORT=1TO2
  14. 69 GET#2,A$:IFA$=CHR$(255)THEN74
  15. 70 REM IFA$=""THEN67
  16. 71 A=ASC(A$+CHR$(0))
  17. 72 IFA>127THENA=-(AAND127)
  18. 73 A%(P1,T)=A:NEXT:GOTO68
  19. 74 CLOSE2
  20. 81 OPEN2,8,2,"@0:"+F$+".FIG,P,W"
  21. 82 PRINT#2,CHR$(0);CHR$(158);
  22. 83 FORI=1TOP1-1
  23. 86 A%(I,2)=A%(I,2)-5
  24. 87 FORJ=1TO2:IFA%(I,J)<0THENA%(I,J)=ABS(A%(I,J))OR128
  25. 88 NEXTJ:PRINT#2,CHR$(A%(I,1));CHR$(A%(I,2));
  26. 89 NEXTI
  27. 90 PRINT#2,CHR$(255);CHR$(255);:CLOSE2
  28. 100 NEXTW
  29.